home *** CD-ROM | disk | FTP | other *** search
/ TOS Silver 2000 / TOS Silver 2000.iso / Anwendun / JANE152 / SCL / FLIESS.SCL < prev    next >
Encoding:
Text File  |  1998-10-29  |  535 b   |  22 lines
  1. # Dieser Makro konvertiert einen Zeilentext in einen Fließtext, indem er 
  2. # am Ende jeder Zeile ein Leerzeichen einfügt, wenn die Folgezeile nicht 
  3. # leer ist.
  4. # Demonstriert nebenbei die Befehle 'bufautodraw' und 'bufredraw'.
  5. fliess()
  6. {    bufautodraw(0);
  7.     buf = buffind('', 0);
  8.     lines = buflines(buf);
  9.     i = 0;
  10.     while ( i < lines - 1 )
  11.     {    s = bufgetline(buf, i);
  12.         if ( @s > 0 )
  13.             if ( linelen(i + 1) > 0 )
  14.                 bufputline(buf, i, s // ' ');
  15.  
  16.         i = i + 1;
  17.     }
  18.     bufredraw(buf);
  19.     bufautodraw(1);
  20.     message('fertig.');
  21. }
  22.